0 PRINT"[147]"
1 PRINT"[151]EINEM GAERTNER BIETET SEIN LEHRLING AN, JEDEN SONNTAG ZUSAETZLICH ZU  "
2 PRINT"[151]ARBEITEN, WENN ER AM NAECHSTEN SONNTAG  GENAU DEN DOPPELTEN LOHN VOM "
3 PRINT"[151]VORHERGEHENDEN ERHAELT.":df 9
5 PRINT"[147]"
10 INPUT "[151] GELDSUMME, EINGABE IN PFENNIG";A
13 PRINT"[158]              "
15 PRINT " 1 SONNTAG    ",A
20 B=A+A : PRINT " 2.SONNTAG    ",B
30 C=B+B : PRINT " 3.SONNTAG    ",C
40 D=C+C : PRINT " 4.SONNTAG    ",D
50 E=D+D : PRINT " 5.SONNTAG    ",E
60 F=E+E : PRINT " 6.SONNTAG    ",F
70 G=F+F : PRINT " 7.SONNTAG    ",G
80 H=G+G : PRINT " 8.SONNTAG    ",H
81 I=H+H : PRINT " 9.SONNTAG    ",I
82 J=I+I : PRINT "10.SONNTAG    ",J
84 K=J+J : PRINT "11.SONNTAG    ",K
86 L=K+K : PRINT "12.SONNTAG    ",L
88 M=L+L : PRINT "13.SONNTAG    ",M
89 df 5
90 N=M+M : PRINT "14.SONNTAG    ",N
92 O=N+N : PRINT "15.SONNTAG    ",O
94 P=O+O : PRINT "16.SONNTAG    ",P
96 Q=P+P : PRINT "17.SONNTAG    ",Q
98 R=Q+Q : PRINT "18.SONNTAG    ",R
100 S=R+R: PRINT "19.SONNTAG    ",S
102 T=S+S: PRINT "20.SONNTAG    ",T
104 U=T+T: PRINT "21.SONNTAG    ",U
106 V=U+U: PRINT "22.SONNTAG    ",V
108 W=V+V: PRINT "23.SONNTAG    ",W
110 X=W+W: PRINT "24.SONNTAG    ",X
112 Y=X+X: PRINT "25.SONNTAG    ",Y
114 Z=Y+Y: PRINT "26.SONNTAG    ",Z
115 PRINT"[158]                              "
116 PRINT"NACH EINEM HALBEN JAHR (26 SONNTAGE)    BETRAEGT DIE LOHNSUMME   >>"
117 PRINT"[158]                              "
118 PRINT" PFENNIGE   :",Z
119 PRINT"ODER MARK   :",Z/100
120 PRINT"NOCH EINE EINGABE ? (J/N)";
121 GET AN$: IF AN$="" THEN121
122 IFAN$="J" THEN 5
123 d 25,1,6:df 5 :PRINT"[147]":d 0:IF AN$<>"N" THEN 121